// export komora , secret , secret1 , poj1 , poj2 , poj3 , MyVeh ; export szakal , maniek , gizold , smoke , immortal , michael , dragon , Lesiu , Fajfer ; export function PrepareEastLegion ; begin
   0: LD_INT 0
   2: PPUSH
// uc_side = 8 ;
   3: LD_ADDR_OWVAR 20
   7: PUSH
   8: LD_INT 8
  10: ST_TO_ADDR
// uc_nation = 1 ;
  11: LD_ADDR_OWVAR 21
  15: PUSH
  16: LD_INT 1
  18: ST_TO_ADDR
// MyVeh = LoadVariable ( komora , [ ] ) ;
  19: LD_ADDR_EXP 7
  23: PUSH
  24: LD_STRING komora
  26: PPUSH
  27: EMPTY
  28: PPUSH
  29: CALL_OW 30
  33: ST_TO_ADDR
// if MyVeh then
  34: LD_EXP 7
  38: IFFALSE 97
// begin vc_chassis = 21 ;
  40: LD_ADDR_OWVAR 37
  44: PUSH
  45: LD_INT 21
  47: ST_TO_ADDR
// vc_engine = 1 ;
  48: LD_ADDR_OWVAR 39
  52: PUSH
  53: LD_INT 1
  55: ST_TO_ADDR
// vc_control = 1 ;
  56: LD_ADDR_OWVAR 38
  60: PUSH
  61: LD_INT 1
  63: ST_TO_ADDR
// vc_weapon = 51 ;
  64: LD_ADDR_OWVAR 40
  68: PUSH
  69: LD_INT 51
  71: ST_TO_ADDR
// komora = CreateVehicle ;
  72: LD_ADDR_EXP 1
  76: PUSH
  77: CALL_OW 45
  81: ST_TO_ADDR
// PlaceUnitArea ( komora , Start , false ) ;
  82: LD_EXP 1
  86: PPUSH
  87: LD_INT 3
  89: PPUSH
  90: LD_INT 0
  92: PPUSH
  93: CALL_OW 49
// end ; szakal = CreateCharacter ( szakal ) ;
  97: LD_ADDR_EXP 8
 101: PUSH
 102: LD_STRING szakal
 104: PPUSH
 105: CALL_OW 34
 109: ST_TO_ADDR
// PlaceUnitXY ( szakal , 25 , 41 , false ) ;
 110: LD_EXP 8
 114: PPUSH
 115: LD_INT 25
 117: PPUSH
 118: LD_INT 41
 120: PPUSH
 121: LD_INT 0
 123: PPUSH
 124: CALL_OW 48
// gizold = CreateCharacter ( gizold ) ;
 128: LD_ADDR_EXP 10
 132: PUSH
 133: LD_STRING gizold
 135: PPUSH
 136: CALL_OW 34
 140: ST_TO_ADDR
// PlaceUnitXY ( gizold , 26 , 43 , false ) ;
 141: LD_EXP 10
 145: PPUSH
 146: LD_INT 26
 148: PPUSH
 149: LD_INT 43
 151: PPUSH
 152: LD_INT 0
 154: PPUSH
 155: CALL_OW 48
// Lesiu = CreateCharacter ( Lesiu ) ;
 159: LD_ADDR_EXP 15
 163: PUSH
 164: LD_STRING Lesiu
 166: PPUSH
 167: CALL_OW 34
 171: ST_TO_ADDR
// PlaceUnitArea ( Lesiu , ziomy , false ) ;
 172: LD_EXP 15
 176: PPUSH
 177: LD_INT 1
 179: PPUSH
 180: LD_INT 0
 182: PPUSH
 183: CALL_OW 49
// Fajfer = CreateCharacter ( Fajfer ) ;
 187: LD_ADDR_EXP 16
 191: PUSH
 192: LD_STRING Fajfer
 194: PPUSH
 195: CALL_OW 34
 199: ST_TO_ADDR
// PlaceUnitArea ( Fajfer , ziomy , false ) ;
 200: LD_EXP 16
 204: PPUSH
 205: LD_INT 1
 207: PPUSH
 208: LD_INT 0
 210: PPUSH
 211: CALL_OW 49
// ComTurnUnit ( [ Lesiu , Fajfer ] , Gizold ) ;
 215: LD_EXP 15
 219: PUSH
 220: LD_EXP 16
 224: PUSH
 225: EMPTY
 226: LIST
 227: LIST
 228: PPUSH
 229: LD_EXP 10
 233: PPUSH
 234: CALL_OW 119
// uc_nation = 2 ;
 238: LD_ADDR_OWVAR 21
 242: PUSH
 243: LD_INT 2
 245: ST_TO_ADDR
// dragon = CreateCharacter ( dragon ) ;
 246: LD_ADDR_EXP 14
 250: PUSH
 251: LD_STRING dragon
 253: PPUSH
 254: CALL_OW 34
 258: ST_TO_ADDR
// if IsInArea ( komora , Start ) then
 259: LD_EXP 1
 263: PPUSH
 264: LD_INT 3
 266: PPUSH
 267: CALL_OW 308
 271: IFFALSE 289
// begin PlaceHumanInUnit ( dragon , komora ) ;
 273: LD_EXP 14
 277: PPUSH
 278: LD_EXP 1
 282: PPUSH
 283: CALL_OW 52
// end else
 287: GO 307
// begin PlaceUnitXY ( dragon , 27 , 47 , false ) ;
 289: LD_EXP 14
 293: PPUSH
 294: LD_INT 27
 296: PPUSH
 297: LD_INT 47
 299: PPUSH
 300: LD_INT 0
 302: PPUSH
 303: CALL_OW 48
// end ; uc_nation = 3 ;
 307: LD_ADDR_OWVAR 21
 311: PUSH
 312: LD_INT 3
 314: ST_TO_ADDR
// maniek = CreateCharacter ( maniek ) ;
 315: LD_ADDR_EXP 9
 319: PUSH
 320: LD_STRING maniek
 322: PPUSH
 323: CALL_OW 34
 327: ST_TO_ADDR
// if IsInArea ( poj2 , Start ) then
 328: LD_EXP 5
 332: PPUSH
 333: LD_INT 3
 335: PPUSH
 336: CALL_OW 308
 340: IFFALSE 358
// begin PlaceHumanInUnit ( maniek , poj2 ) ;
 342: LD_EXP 9
 346: PPUSH
 347: LD_EXP 5
 351: PPUSH
 352: CALL_OW 52
// end else
 356: GO 376
// begin PlaceUnitXY ( maniek , 24 , 45 , false ) ;
 358: LD_EXP 9
 362: PPUSH
 363: LD_INT 24
 365: PPUSH
 366: LD_INT 45
 368: PPUSH
 369: LD_INT 0
 371: PPUSH
 372: CALL_OW 48
// end ; smoke = CreateCharacter ( smoke ) ;
 376: LD_ADDR_EXP 11
 380: PUSH
 381: LD_STRING smoke
 383: PPUSH
 384: CALL_OW 34
 388: ST_TO_ADDR
// if IsInArea ( poj3 , Start ) then
 389: LD_EXP 6
 393: PPUSH
 394: LD_INT 3
 396: PPUSH
 397: CALL_OW 308
 401: IFFALSE 419
// begin PlaceHumanInUnit ( maniek , poj3 ) ;
 403: LD_EXP 9
 407: PPUSH
 408: LD_EXP 6
 412: PPUSH
 413: CALL_OW 52
// end else
 417: GO 437
// begin PlaceUnitXY ( smoke , 26 , 45 , false ) ;
 419: LD_EXP 11
 423: PPUSH
 424: LD_INT 26
 426: PPUSH
 427: LD_INT 45
 429: PPUSH
 430: LD_INT 0
 432: PPUSH
 433: CALL_OW 48
// end ; immortal = CreateCharacter ( immortal ) ;
 437: LD_ADDR_EXP 12
 441: PUSH
 442: LD_STRING immortal
 444: PPUSH
 445: CALL_OW 34
 449: ST_TO_ADDR
// PlaceUnitXY ( immortal , 23 , 40 , false ) ;
 450: LD_EXP 12
 454: PPUSH
 455: LD_INT 23
 457: PPUSH
 458: LD_INT 40
 460: PPUSH
 461: LD_INT 0
 463: PPUSH
 464: CALL_OW 48
// michael = CreateCharacter ( michael ) ;
 468: LD_ADDR_EXP 13
 472: PUSH
 473: LD_STRING michael
 475: PPUSH
 476: CALL_OW 34
 480: ST_TO_ADDR
// PlaceUnitXY ( michael , 30 , 47 , false ) ;
 481: LD_EXP 13
 485: PPUSH
 486: LD_INT 30
 488: PPUSH
 489: LD_INT 47
 491: PPUSH
 492: LD_INT 0
 494: PPUSH
 495: CALL_OW 48
// end ; end_of_file
 499: LD_VAR 0 1
 503: RET
// starting begin Resetfog ;
 504: CALL_OW 335
// PrepareEastLegion ;
 508: CALL 0 0 0
// RevealFogArea ( 8 , EastBase ) ;
 512: LD_INT 8
 514: PPUSH
 515: LD_INT 4
 517: PPUSH
 518: CALL_OW 332
// Comenterunit ( moralez , s1 ) ;
 522: LD_INT 78
 524: PPUSH
 525: LD_INT 79
 527: PPUSH
 528: CALL_OW 120
// SetBName ( dep , east ) ;
 532: LD_INT 1
 534: PPUSH
 535: LD_STRING east
 537: PPUSH
 538: CALL_OW 500
// InGameOn ;
 542: CALL_OW 8
// centernowonunits ( gizold ) ;
 546: LD_EXP 10
 550: PPUSH
 551: CALL_OW 87
// ComMoveXY ( gizold , 51 , 19 ) ;
 555: LD_EXP 10
 559: PPUSH
 560: LD_INT 51
 562: PPUSH
 563: LD_INT 19
 565: PPUSH
 566: CALL_OW 111
// ComMoveXY ( szakal , 53 , 19 ) ;
 570: LD_EXP 8
 574: PPUSH
 575: LD_INT 53
 577: PPUSH
 578: LD_INT 19
 580: PPUSH
 581: CALL_OW 111
// ComMoveToArea ( [ maniek , dragon , michael , smoke , immortal , komora ] , Zbiorka ) ;
 585: LD_EXP 9
 589: PUSH
 590: LD_EXP 14
 594: PUSH
 595: LD_EXP 13
 599: PUSH
 600: LD_EXP 11
 604: PUSH
 605: LD_EXP 12
 609: PUSH
 610: LD_EXP 1
 614: PUSH
 615: EMPTY
 616: LIST
 617: LIST
 618: LIST
 619: LIST
 620: LIST
 621: LIST
 622: PPUSH
 623: LD_INT 2
 625: PPUSH
 626: CALL_OW 113
// Wait ( 0 0$5 ) ;
 630: LD_INT 175
 632: PPUSH
 633: CALL_OW 67
// CenterNowOnXY ( 40 , 39 ) ;
 637: LD_INT 40
 639: PPUSH
 640: LD_INT 39
 642: PPUSH
 643: CALL_OW 86
// Wait ( 0 0$5 ) ;
 647: LD_INT 175
 649: PPUSH
 650: CALL_OW 67
// Centeronunits ( gizold ) ;
 654: LD_EXP 10
 658: PPUSH
 659: CALL_OW 85
// Wait ( 0 0$5 ) ;
 663: LD_INT 175
 665: PPUSH
 666: CALL_OW 67
// Centeronunits ( gizold ) ;
 670: LD_EXP 10
 674: PPUSH
 675: CALL_OW 85
// Wait ( 0 0$5 ) ;
 679: LD_INT 175
 681: PPUSH
 682: CALL_OW 67
// Centeronunits ( gizold ) ;
 686: LD_EXP 10
 690: PPUSH
 691: CALL_OW 85
// Wait ( 0 0$7 ) ;
 695: LD_INT 245
 697: PPUSH
 698: CALL_OW 67
// CenterNowOnXY ( 53 , 19 ) ;
 702: LD_INT 53
 704: PPUSH
 705: LD_INT 19
 707: PPUSH
 708: CALL_OW 86
// ComTurnUnit ( [ Gizold , Szakal ] , Lesiu ) ;
 712: LD_EXP 10
 716: PUSH
 717: LD_EXP 8
 721: PUSH
 722: EMPTY
 723: LIST
 724: LIST
 725: PPUSH
 726: LD_EXP 15
 730: PPUSH
 731: CALL_OW 119
// Say ( Lesiu , a1 ) ;
 735: LD_EXP 15
 739: PPUSH
 740: LD_STRING a1
 742: PPUSH
 743: CALL_OW 88
// Say ( szakal , a2 ) ;
 747: LD_EXP 8
 751: PPUSH
 752: LD_STRING a2
 754: PPUSH
 755: CALL_OW 88
// Say ( gizold , a3 ) ;
 759: LD_EXP 10
 763: PPUSH
 764: LD_STRING a3
 766: PPUSH
 767: CALL_OW 88
// Say ( fajfer , a4 ) ;
 771: LD_EXP 16
 775: PPUSH
 776: LD_STRING a4
 778: PPUSH
 779: CALL_OW 88
// ComExitVehicle ( dragon ) ;
 783: LD_EXP 14
 787: PPUSH
 788: CALL_OW 121
// ComExitVehicle ( maniek ) ;
 792: LD_EXP 9
 796: PPUSH
 797: CALL_OW 121
// ComExitVehicle ( smoke ) ;
 801: LD_EXP 11
 805: PPUSH
 806: CALL_OW 121
// wait ( 0 0$2 ) ;
 810: LD_INT 70
 812: PPUSH
 813: CALL_OW 67
// ComEnterUnit ( [ maniek , dragon , michael , smoke , immortal ] , zbrojka ) ;
 817: LD_EXP 9
 821: PUSH
 822: LD_EXP 14
 826: PUSH
 827: LD_EXP 13
 831: PUSH
 832: LD_EXP 11
 836: PUSH
 837: LD_EXP 12
 841: PUSH
 842: EMPTY
 843: LIST
 844: LIST
 845: LIST
 846: LIST
 847: LIST
 848: PPUSH
 849: LD_INT 40
 851: PPUSH
 852: CALL_OW 120
// wait ( 0 0$3 ) ;
 856: LD_INT 105
 858: PPUSH
 859: CALL_OW 67
// SayRadio ( Pamel , a5 ) ;
 863: LD_INT 73
 865: PPUSH
 866: LD_STRING a5
 868: PPUSH
 869: CALL_OW 94
// SayRadio ( Pamel , a6 ) ;
 873: LD_INT 73
 875: PPUSH
 876: LD_STRING a6
 878: PPUSH
 879: CALL_OW 94
// SayRadio ( Pamel , a7 ) ;
 883: LD_INT 73
 885: PPUSH
 886: LD_STRING a7
 888: PPUSH
 889: CALL_OW 94
// Say ( gizold , a8 ) ;
 893: LD_EXP 10
 897: PPUSH
 898: LD_STRING a8
 900: PPUSH
 901: CALL_OW 88
// Say ( lesiu , a9 ) ;
 905: LD_EXP 15
 909: PPUSH
 910: LD_STRING a9
 912: PPUSH
 913: CALL_OW 88
// Say ( lesiu , a10 ) ;
 917: LD_EXP 15
 921: PPUSH
 922: LD_STRING a10
 924: PPUSH
 925: CALL_OW 88
// SayRadio ( lesiu , a11 ) ;
 929: LD_EXP 15
 933: PPUSH
 934: LD_STRING a11
 936: PPUSH
 937: CALL_OW 94
// Say ( Gizold , a12 ) ;
 941: LD_EXP 10
 945: PPUSH
 946: LD_STRING a12
 948: PPUSH
 949: CALL_OW 88
// Say ( szakal , a13 ) ;
 953: LD_EXP 8
 957: PPUSH
 958: LD_STRING a13
 960: PPUSH
 961: CALL_OW 88
// SaveCharacters ( lesiu , lesiu ) ;
 965: LD_EXP 15
 969: PPUSH
 970: LD_STRING lesiu
 972: PPUSH
 973: CALL_OW 38
// SaveCharacters ( ostra , ostra ) ;
 977: LD_INT 68
 979: PPUSH
 980: LD_STRING ostra
 982: PPUSH
 983: CALL_OW 38
// SaveCharacters ( fajfer , fajfer ) ;
 987: LD_EXP 16
 991: PPUSH
 992: LD_STRING fajfer
 994: PPUSH
 995: CALL_OW 38
// SaveCharacters ( blood , blood ) ;
 999: LD_INT 59
1001: PPUSH
1002: LD_STRING blood
1004: PPUSH
1005: CALL_OW 38
// SaveCharacters ( wojtek , wojtek ) ;
1009: LD_INT 58
1011: PPUSH
1012: LD_STRING wojtek
1014: PPUSH
1015: CALL_OW 38
// SaveCharacters ( moralez , moralez ) ;
1019: LD_INT 78
1021: PPUSH
1022: LD_STRING moralez
1024: PPUSH
1025: CALL_OW 38
// Changemap ( %_cont , %_cont ) ;
1029: LD_STRING %_cont
1031: PPUSH
1032: LD_STRING %_cont
1034: PPUSH
1035: CALL_OW 340
// end ;
1039: END
